Language/OS - Multiplatform Resource Library

home *** CD-ROM | disk | FTP | other *** search

/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / perl / msds-prl / bcdsprl4.zoo / y_tab.c < prev

Wrap

C/C++ Source or Header | 1991-11-28 | 103KB | 2,558 lines

/* A Bison parser, made from perly.y */ #define WORD 258 #define APPEND 259 #define OPEN 260 #define SSELECT 261 #define LOOPEX 262 #define USING 263 #define FORMAT 264 #define DO 265 #define SHIFT 266 #define PUSH 267 #define POP 268 #define LVALFUN 269 #define WHILE 270 #define UNTIL 271 #define IF 272 #define UNLESS 273 #define ELSE 274 #define ELSIF 275 #define CONTINUE 276 #define SPLIT 277 #define FLIST 278 #define FOR 279 #define FILOP 280 #define FILOP2 281 #define FILOP3 282 #define FILOP4 283 #define FILOP22 284 #define FILOP25 285 #define FUNC0 286 #define FUNC1 287 #define FUNC2 288 #define FUNC2x 289 #define FUNC3 290 #define FUNC4 291 #define FUNC5 292 #define HSHFUN 293 #define HSHFUN3 294 #define FLIST2 295 #define SUB 296 #define FILETEST 297 #define LOCAL 298 #define DELETE 299 #define RELOP 300 #define EQOP 301 #define MULOP 302 #define ADDOP 303 #define PACKAGE 304 #define AMPER 305 #define FORMLIST 306 #define REG 307 #define ARYLEN 308 #define ARY 309 #define HSH 310 #define STAR 311 #define SUBST 312 #define PATTERN 313 #define RSTRING 314 #define TRANS 315 #define LISTOP 316 #define DOTDOT 317 #define OROR 318 #define ANDAND 319 #define UNIOP 320 #define LS 321 #define RS 322 #define MATCH 323 #define NMATCH 324 #define UMINUS 325 #define POW 326 #define INC 327 #define DEC 328 #line 23 "perly.y" #include "INTERN.h" #include "perl.h" /*SUPPRESS 530*/ /*SUPPRESS 593*/ /*SUPPRESS 595*/ STAB *scrstab; ARG *arg4; /* rarely used arguments to make_op() */ ARG *arg5; #line 44 "perly.y" typedef union { int ival; char *cval; ARG *arg; CMD *cmdval; struct compcmd compval; STAB *stabval; FCMD *formval; } YYSTYPE; #ifndef YYLTYPE typedef struct yyltype { int timestamp; int first_line; int first_column; int last_line; int last_column; char *text; } yyltype; #define YYLTYPE yyltype #endif #include <stdio.h> #ifndef __STDC__ #define const #endif #define YYFINAL 414 #define YYFLAG -32768 #define YYNTBASE 92 #define YYTRANSLATE(x) ((unsigned)(x) <= 328 ? yytranslate[x] : 121) static const char yytranslate[] = { 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 79, 2, 2, 2, 2, 73, 2, 85, 4, 2, 89, 64, 88, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 67, 87, 2, 65, 2, 66, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 90, 2, 91, 72, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 71, 86, 80, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 68, 69, 70, 74, 75, 76, 77, 78, 81, 82, 83, 84 }; #if YYDEBUG != 0 static const short yyrline[] = { 0, 106, 113, 120, 122, 127, 129, 131, 137, 146, 151, 153, 158, 160, 162, 163, 172, 177, 179, 181, 184, 187, 190, 196, 199, 202, 205, 211, 215, 219, 223, 227, 266, 293, 300, 305, 307, 311, 313, 317, 319, 323, 325, 327, 332, 340, 345, 353, 375, 380, 382, 386, 391, 398, 400, 402, 404, 406, 408, 410, 412, 418, 420, 429, 431, 433, 435, 437, 439, 441, 443, 445, 448, 450, 452, 454, 456, 458, 463, 465, 467, 469, 471, 474, 477, 480, 483, 489, 492, 498, 502, 504, 506, 509, 511, 513, 515, 518, 522, 526, 531, 536, 541, 546, 551, 556, 558, 560, 562, 564, 566, 572, 577, 583, 588, 593, 599, 604, 610, 615, 620, 622, 625, 627, 629, 631, 633, 639, 641, 644, 649, 654, 658, 662, 667, 671, 675, 678, 680, 682, 684, 686, 689, 694, 696, 698, 700, 702, 707, 717, 720, 723, 727, 732, 737, 740, 744, 746, 748, 750, 752, 756, 760, 764, 766, 769, 772, 777, 782, 784, 785, 789, 794, 799, 804, 809, 814, 822, 825, 829, 832, 837, 840, 845, 847, 858 }; static const char * const yytname[] = { 0, "error","$illegal.","'{'","')'","WORD","APPEND","OPEN","SSELECT","LOOPEX","USING", "FORMAT","DO","SHIFT","PUSH","POP","LVALFUN","WHILE","UNTIL","IF","UNLESS", "ELSE","ELSIF","CONTINUE","SPLIT","FLIST","FOR","FILOP","FILOP2","FILOP3","FILOP4", "FILOP22","FILOP25","FUNC0","FUNC1","FUNC2","FUNC2x","FUNC3","FUNC4","FUNC5","HSHFUN", "HSHFUN3","FLIST2","SUB","FILETEST","LOCAL","DELETE","RELOP","EQOP","MULOP","ADDOP", "PACKAGE","AMPER","FORMLIST","REG","ARYLEN","ARY","HSH","STAR","SUBST","PATTERN", "RSTRING","TRANS","LISTOP","','","'='","'?'","':'","DOTDOT","OROR","ANDAND", "'|'","'^'","'&'","UNIOP","LS","RS","MATCH","NMATCH","'!'","'~'", "UMINUS","POW","INC","DEC","'('","'}'","';'","'-'","'+'","'['", "']'","prog" }; #endif static const short yyr1[] = { 0, 93, 92, 94, 94, 95, 95, 95, 96, 97, 98, 98, 99, 99, 99, 99, 99, 100, 100, 100, 100, 100, 100, 101, 101, 101, 101, 102, 102, 102, 102, 102, 102, 102, 102, 103, 103, 104, 104, 105, 105, 106, 106, 106, 107, 107, 108, 109, 110, 111, 111, 112, 113, 113, 113, 113, 113, 113, 113, 113, 113, 113, 113, 113, 113, 113, 113, 113, 113, 113, 113, 113, 113, 113, 113, 113, 113, 113, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 115, 115, 115, 115, 115, 115, 116, 116, 117, 117, 118, 118, 119, 119, 120 }; static const short yyr2[] = { 0, 0, 2, 3, 2, 0, 2, 5, 4, 0, 0, 2, 1, 2, 1, 2, 3, 1, 1, 3, 3, 3, 3, 5, 5, 3, 3, 6, 6, 4, 4, 7, 6, 10, 2, 0, 1, 0, 1, 0, 2, 1, 1, 1, 4, 3, 3, 3, 2, 3, 1, 2, 3, 4, 4, 4, 4, 4, 4, 4, 4, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 5, 3, 3, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 4, 3, 2, 2, 2, 1, 1, 4, 1, 1, 4, 6, 5, 4, 4, 5, 1, 1, 1, 1, 1, 5, 5, 4, 4, 2, 5, 5, 4, 4, 2, 1, 2, 1, 2, 2, 1, 2, 4, 7, 2, 4, 5, 4, 2, 2, 3, 1, 5, 6, 6, 7, 9, 6, 2, 4, 2, 4, 1, 1, 6, 5, 4, 5, 4, 2, 1, 1, 3, 3, 4, 5, 5, 6, 6, 7, 8, 4, 2, 6, 1, 1, 1, 2, 2, 3, 3, 3, 1, 1, 1, 1, 1, 1, 2, 1, 1 }; static const short yydefact[] = { 1, 10, 39, 0, 0, 0, 0, 11, 14, 0, 12, 41, 42, 43, 40, 0, 0, 0, 0, 17, 9, 185, 0, 125, 120, 0, 147, 0, 0, 155, 0, 0, 0, 0, 148, 0, 0, 136, 0, 0, 0, 0, 0, 156, 0, 0, 0, 0, 0, 0, 0, 0, 0, 88, 0, 0, 0, 94, 105, 98, 97, 95, 108, 107, 106, 109, 171, 122, 0, 0, 0, 0, 0, 15, 0, 0, 34, 5, 0, 13, 18, 50, 77, 170, 169, 0, 45, 46, 47, 10, 129, 0, 126, 0, 121, 185, 94, 93, 92, 179, 180, 0, 145, 0, 0, 143, 154, 37, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 133, 134, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 181, 182, 0, 167, 0, 0, 86, 87, 0, 0, 114, 119, 0, 0, 0, 0, 173, 94, 0, 172, 123, 124, 80, 81, 84, 85, 91, 0, 78, 79, 0, 0, 0, 4, 16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 82, 83, 44, 39, 185, 178, 0, 185, 178, 0, 0, 0, 0, 0, 0, 0, 38, 29, 0, 30, 0, 25, 0, 26, 0, 0, 0, 36, 0, 18, 135, 0, 0, 0, 0, 0, 0, 157, 158, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 174, 175, 176, 0, 184, 0, 90, 6, 0, 3, 21, 22, 19, 20, 49, 66, 67, 0, 62, 0, 63, 52, 0, 71, 73, 72, 0, 70, 0, 69, 0, 68, 0, 64, 0, 65, 75, 76, 0, 61, 8, 130, 0, 0, 0, 0, 127, 112, 0, 117, 0, 146, 0, 144, 0, 0, 0, 0, 151, 0, 153, 0, 37, 0, 132, 0, 0, 0, 0, 0, 159, 0, 0, 0, 0, 0, 166, 0, 0, 89, 0, 113, 0, 118, 0, 99, 96, 103, 102, 0, 183, 0, 0, 54, 55, 0, 60, 59, 58, 56, 57, 53, 48, 131, 51, 0, 110, 115, 0, 27, 28, 23, 24, 150, 0, 0, 0, 32, 137, 0, 0, 0, 0, 160, 161, 0, 0, 0, 0, 0, 152, 104, 111, 116, 101, 0, 0, 74, 0, 142, 149, 31, 0, 138, 0, 139, 0, 162, 163, 0, 0, 168, 100, 7, 128, 0, 140, 0, 164, 0, 0, 0, 165, 33, 141, 0, 0, 0 }; static const short yydefgoto[] = { 412, 1, 76, 167, 77, 89, 2, 7, 218, 79, 8, 219, 206, 9, 10, 11, 12, 13, 290, 80, 292, 81, 82, 83, 197, 102, 137, 253, 84 }; static const short yypact[] = {-32768, -32768, 131, -19, 13, 64, 66,-32768,-32768, 434,-32768, -32768,-32768,-32768,-32768, -5, 72, 112, 42,-32768,-32768, -32768, 37, 41, 130, 783, 33, 85, 56, 2410, 8, 9, 20, 26, 96, 104, -29, 36, 108, 133, 137, 139, 140, 152, 157, 160, 161, 162, 164, 168, 38, 172, 174, 2495, 175, 91, 122, 7,-32768, 14,-32768, -32768,-32768,-32768,-32768,-32768, 870, 957, 2410, 2410, 2410, 2410, 1043,-32768, 2410, 2410,-32768, 117, 120,-32768, 166, 2801, -32,-32768,-32768, 149,-32768,-32768,-32768,-32768,-32768, 2580,-32768, 2665,-32768, 176, 6,-32768, 304,-32768,-32768, 61,-32768, 61, 61,-32768,-32768, 2410, 112, 2410, 112, 2410, 112, 2410, 112, 2410, 2410, 180, 519,-32768,-32768, 1129, 2665, 2665, 2665, 2665, 2665, 219, 1215, 2410, 2410, 2410, 2410, 2410,-32768,-32768, 19,-32768, 19, 2410,-32768, 304, 2410, 235, 181, 184, 2410, 2410, 2410, 2410, 2410, 695, 2410, 187,-32768, 304, -32, -32, 0, 0, 182, 15, -32, -32, 112, 185, 112,-32768,-32768, 2410, 2410, 2410, 2410, 2410, 2410, 2410, 1730, 1815, 2410, 2410, 2410, 2410, 2410, 1900, 1985, 2070, 2155, 2240, 2410, 2410, 2325, -32768,-32768,-32768, 34, 16, 2801, 207, 17, 2693, 269, 1301, 1387, 270, 211, 273, 276, 187,-32768, 18,-32768, 22,-32768, 23,-32768, 348, 15, 2410,-32768, 194, 55, -32768, 278, 207, 227, 227, 230, 237,-32768,-32768, 24, 2729, 2693, 2693, 2693, 2693, 295, 227, 2729, 15, 2410, 1473, 1559, 82, -33, 113, -24, 187, 187, 187, 2410, -32768, 1645, 216,-32768, 2410,-32768, 187, 187, 187, 187, 2801, 2813, 2741, 2410, 158, 2410, 123, 2801, 2765, 2852, 2888, 266, 2410, 326, 2410, 326, 2410, 2777, 2410, 138, 2410, 138, 223, 223, 2410, 223,-32768,-32768, 2410, 303, 2410, 227,-32768,-32768, 15,-32768, 15,-32768, 2410,-32768, 112, 112, 112, 112,-32768, 49,-32768, 15, 2410, 112, -32768, 305, 207, 227, 2665, 2665,-32768, 306, 50, 207, 227, 227,-32768, 207, 307,-32768, 153,-32768, 15,-32768, 15,-32768,-32768,-32768,-32768, 115,-32768, 2410, 60, 2801, 2801, 2410, 2801, 2801, 2801, 2801, 2801, 2801, 187,-32768, 2801, 227,-32768,-32768, 15,-32768,-32768,-32768,-32768,-32768, 314, 112, 221,-32768,-32768, 316, 207, 317, 227,-32768, -32768, 318, 320, 207, 227, 322,-32768,-32768,-32768,-32768, -32768, 128, 112, 2837, 323,-32768,-32768,-32768, 608,-32768, 324,-32768, 227,-32768,-32768, 325, 207,-32768,-32768,-32768, -32768, 327,-32768, 207,-32768, 328, 112, 329,-32768,-32768, -32768, 330, 334,-32768 }; static const short yypgoto[] = {-32768, -32768, -107,-32768, -17,-32768, 246,-32768, 331,-32768,-32768, -44, 40,-32768,-32768,-32768,-32768,-32768, -176, 62, 63, -23, 215,-32768, -89, 29, -73, 28,-32768 }; #define YYLAST 2970 static const short yytable[] = { 87, 208, 98, 210, 200, 212, 106, 214, 97, 146, 146, 20, 20, 108, 110, 112, 114, 148, 15, 251, 288, -177, 302, 20, 134, 117, 303, 304, 317, 20, 141, 173, 222, 223, 224, 225, 226, 227, 99, 3, 173, 119, 90, 134, 155, 4, 92, 312, 14, 152, 154, 191, 192, 360, 371, 318, 118, 105, 333, 251, 85, 99, 325, 236, 383, 237, 99, 335, 196, 17, 199, 18, 169, 170, 171, 172, 135, 5, 16, 252, -177, -177, 173,-32768,-32768, 6, 173, 173, 173, 100, 120, 202, 215, 107, 109, 135, 147, 147, 196, 196, 196, 196, 196, 196, 149, 111, 231, 232, 233, 234, 235, 113, 100, 291, 289, 20, 238, 100, 101, 252, 287, 121, 91, 136, 173, 86, 93, 144, 153, 88, 203, -2, 204, 205, 161, 94, 3, 366, 164, 165, 166, 104, 4, 372, 373, 143, 173, 254, 376, 256, 261, 262, 263, 265, 267, 268, 269, 270, 271, 272, 274, 276, 278, 280, 282, 283, 284, 286, 332, 207, 103, 209, 176, 211, 5, 213, 145, 173, 216, 173, 220, 115, 6, 169, 170, 171, 172, 176, 177, 116, 230, 391, 173, 122, 356, 357, 358, 359, 396, 334, 188, 189, 193, 364, 239, 190, 381, 168, 243, 244, 245, 246, 247, 248, 249, 188, 189, 173, 123, 399, 190, 406, 124, 228, 125, 126, 368, 369, 408, 261, 173, 257, 258, 259, 260, 188, 189, 127, 240, 378, 190, 340, 128, 341, 307, 129, 130, 131, 310, 132, 343, 173, 344, 133, 345, 388, 346, 138, 347, 139, 142, 201, 348, 295, 297, 217, 241, 326, 351, 242, 255, 289, 250, 293, 298, 299, 400, 300, 306, 308, 301, 309, 311, 156, 157, 158, 159, 313, 314, 162, 163, 291, 196, 196, 315, 319, 320, 321, 322, 323, 324, 316, 327, 329, 331, 190, 338, 350, 389, 365, 370, 377, 336, 174, 175, 176, 177, 339, 387, 384, 390, 392, 394, 353, 395, 354, 398, 401, 403, 405, 413, 407, 409, 411, 414, 194, 362, 183, 184, 185, 78, 186, 187, 188, 189, 402, 0, 0, 190, 363, 0, 349, 305, 176, 177, 352, 0, 379, 0, 380, 0, 355, 0, 0, 0, 0, 0, 0, 0, 361, 0, 207, 0, 174, 175, 176, 177, 367, 0, 186, 187, 188, 189, 386, 374, 375, 190, 0, 0, 0, 410, 0, 0, 0, 0, 174, 175, 176, 177, 185, 382, 186, 187, 188, 189, 0, 0, 0, 190, 0, 0, 0, 291, 178, 179, 385, 180, 181, 182, 183, 184, 185, 0, 186, 187, 188, 189, 0, 0, 0, 190, 0, 393, 0, 0, 19, 0, 20, 397, 21, 0, 22, 23, 24, 0, 0, 25, 26, 27, 28, 29, 30, 31, 32, 33, 0, 404, 0, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 0, 53, 54, 55, 0, 0, 0, 0, 0, 56, 0, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 67, 0, 0, 0, 0, 68, 69, 0, 0, 70, 71, 72, 19, 73, 74, 75, 21, 0, 22, 23, 24, 0, 0, 25, 26, 27, 28, 29, 0, 0, 0, 0, 0, 0, 0, 34, 35, 0, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 0, 53, 54, 55, 0, 0, 0, 0, 0, 56, 0, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 67, 0, 0, 0, 0, 68, 69, 0, 0, 70, 71, 72, 0, -35, 74, 75, 19, 0, 0, -35, 21, 0, 22, 23, 24, 0, 0, 25, 26, 27, 28, 29, 0, 0, 0, 0, 0, 0, 0, 34, 35, 0, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 0, 53, 54, 55, 0, 0, 0, 0, 0, 56, 0, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 67, 0, 0, 0, 0, 68, 69, 0, 0, 70, 71, 72, 0, 0, 74, 75, 146, 0, 21, 0, 22, 23, 24, 0, 0, 25, 26, 27, 28, 29, 0, 0, 0, 0, 0, 0, 0, 34, 35, 0, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 0, 53, 54, 55, 0, 0, 0, 0, 0, 56, 0, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 67, 0, 0, 0, 0, 68, 69, 0, 0, 0, 0, 72, 0, 0, 74, 75, 147, 20, 0, 95, 0, 22, 23, 24, 0, 0, 25, 26, 27, 28, 29, 0, 0, 0, 0, 0, 0, 0, 34, 35, 0, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 0, 53, 54, 55, 0, 0, 0, 0, 0, 56, 0, 96, 58, 59, 60, 61, 62, 63, 64, 65, 66, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 67, 0, 0, 0, 0, 68, 69, 0, 0, 70, 71, 72, 0, 0, 74, 75, 20, 0, 150, 0, 22, 23, 24, 0, 0, 25, 26, 27, 28, 29, 0, 0, 0, 0, 0, 0, 0, 34, 35, 0, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 0, 53, 54, 55, 0, 0, 0, 0, 0, 56, 0, 151, 58, 59, 60, 61, 62, 63, 64, 65, 66, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 67, 0, 0, 0, 0, 68, 69, 0, 0, 70, 71, 72, 0, 0, 74, 75, 20, 0, 21, 0, 22, 23, 24, 0, 0, 25, 26, 27, 28, 29, 0, 0, 0, 0, 0, 0, 0, 34, 35, 0, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 0, 53, 54, 55, 0, 0, 0, 0, 0, 56, 0, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 67, 0, 0, 0, 0, 68, 69, 0, 0, 70, 71, 72, 0, 0, 74, 75, 160, 21, 0, 22, 23, 24, 0, 0, 25, 26, 27, 28, 29, 0, 0, 0, 0, 0, 0, 0, 34, 35, 0, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 0, 53, 54, 55, 0, 0, 0, 0, 0, 56, 0, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 67, 0, 0, 0, 0, 68, 69, 0, 0, 70, 71, 72, 0, 0, 74, 75, 221, 198, 0, 22, 23, 24, 0, 0, 25, 26, 27, 28, 29, 0, 0, 0, 0, 0, 0, 0, 34, 35, 0, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 0, 53, 54, 55, 0, 0, 0, 0, 0, 56, 0, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 67, 0, 0, 0, 0, 68, 69, 0, 0, 70, 71, 72, 0, 0, 74, 75, 229, 21, 0, 22, 23, 24, 0, 0, 25, 26, 27, 28, 29, 0, 0, 0, 0, 0, 0, 0, 34, 35, 0, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 0, 53, 54, 55, 0, 0, 0, 0, 0, 56, 0, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 67, 0, 0, 0, 0, 68, 69, 0, 0, 70, 71, 72, 0, 0, 74, 75, 294, 21, 0, 22, 23, 24, 0, 0, 25, 26, 27, 28, 29, 0, 0, 0, 0, 0, 0, 0, 34, 35, 0, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 0, 53, 54, 55, 0, 0, 0, 0, 0, 56, 0, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 67, 0, 0, 0, 0, 68, 69, 0, 0, 70, 71, 72, 0, 0, 74, 75, 296, 21, 0, 22, 23, 24, 0, 0, 25, 26, 27, 28, 29, 0, 0, 0, 0, 0, 0, 0, 34, 35, 0, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 0, 53, 54, 55, 0, 0, 0, 0, 0, 56, 0, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 67, 0, 0, 0, 0, 68, 69, 0, 0, 70, 71, 72, 0, 0, 74, 75, 328, 21, 0, 22, 23, 24, 0, 0, 25, 26, 27, 28, 29, 0, 0, 0, 0, 0, 0, 0, 34, 35, 0, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 0, 53, 54, 55, 0, 0, 0, 0, 0, 56, 0, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 67, 0, 0, 0, 0, 68, 69, 0, 0, 70, 71, 72, 0, 0, 74, 75, 330, 21, 0, 22, 23, 24, 0, 0, 25, 26, 27, 28, 29, 0, 0, 0, 0, 0, 0, 0, 34, 35, 0, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 0, 53, 54, 55, 0, 0, 0, 0, 0, 56, 0, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 67, 0, 0, 0, 0, 68, 69, 0, 0, 70, 71, 72, 0, 0, 74, 75, 337, 21, 0, 22, 23, 24, 0, 0, 25, 26, 27, 28, 29, 0, 0, 0, 0, 0, 0, 0, 34, 35, 0, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 0, 53, 54, 55, 0, 0, 0, 0, 0, 56, 0, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 67, 0, 0, 0, 0, 68, 69, 0, 0, 70, 71, 72, 0, 0, 74, 75, 21, 0, 22, 23, 24, 0, 0, 25, 26, 27, 28, 29, 0, 0, 0, 0, 0, 0, 0, 34, 35, 0, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 0, 53, 54, 55, 0, 0, 0, 0, 0, 56, 0, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 0, 264, 0, 0, 0, 0, 0, 0, 0, 0, 67, 0, 0, 0, 0, 68, 69, 0, 0, 70, 71, 72, 0, 0, 74, 75, 21, 0, 22, 23, 24, 0, 0, 25, 26, 27, 28, 29, 0, 0, 0, 0, 0, 0, 0, 34, 35, 0, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 0, 53, 54, 55, 0, 0, 0, 0, 0, 56, 0, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 0, 266, 0, 0, 0, 0, 0, 0, 0, 0, 67, 0, 0, 0, 0, 68, 69, 0, 0, 70, 71, 72, 0, 0, 74, 75, 21, 0, 22, 23, 24, 0, 0, 25, 26, 27, 28, 29, 0, 0, 0, 0, 0, 0, 0, 34, 35, 0, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 0, 53, 54, 55, 0, 0, 0, 0, 0, 56, 0, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 0, 273, 0, 0, 0, 0, 0, 0, 0, 0, 67, 0, 0, 0, 0, 68, 69, 0, 0, 70, 71, 72, 0, 0, 74, 75, 21, 0, 22, 23, 24, 0, 0, 25, 26, 27, 28, 29, 0, 0, 0, 0, 0, 0, 0, 34, 35, 0, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 0, 53, 54, 55, 0, 0, 0, 0, 0, 56, 0, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 0, 275, 0, 0, 0, 0, 0, 0, 0, 0, 67, 0, 0, 0, 0, 68, 69, 0, 0, 70, 71, 72, 0, 0, 74, 75, 21, 0, 22, 23, 24, 0, 0, 25, 26, 27, 28, 29, 0, 0, 0, 0, 0, 0, 0, 34, 35, 0, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 0, 53, 54, 55, 0, 0, 0, 0, 0, 56, 0, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 0, 277, 0, 0, 0, 0, 0, 0, 0, 0, 67, 0, 0, 0, 0, 68, 69, 0, 0, 70, 71, 72, 0, 0, 74, 75, 21, 0, 22, 23, 24, 0, 0, 25, 26, 27, 28, 29, 0, 0, 0, 0, 0, 0, 0, 34, 35, 0, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 0, 53, 54, 55, 0, 0, 0, 0, 0, 56, 0, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 0, 279, 0, 0, 0, 0, 0, 0, 0, 0, 67, 0, 0, 0, 0, 68, 69, 0, 0, 70, 71, 72, 0, 0, 74, 75, 21, 0, 22, 23, 24, 0, 0, 25, 26, 27, 28, 29, 0, 0, 0, 0, 0, 0, 0, 34, 35, 0, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 0, 53, 54, 55, 0, 0, 0, 0, 0, 56, 0, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 0, 281, 0, 0, 0, 0, 0, 0, 0, 0, 67, 0, 0, 0, 0, 68, 69, 0, 0, 70, 71, 72, 0, 0, 74, 75, 21, 0, 22, 23, 24, 0, 0, 25, 26, 27, 28, 29, 0, 0, 0, 0, 0, 0, 0, 34, 35, 0, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 0, 53, 54, 55, 0, 0, 0, 0, 0, 56, 0, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 0, 285, 0, 0, 0, 0, 0, 0, 0, 0, 67, 0, 0, 0, 0, 68, 69, 0, 0, 70, 71, 72, 0, 0, 74, 75, 21, 0, 22, 23, 24, 0, 0, 25, 26, 27, 28, 29, 0, 0, 0, 0, 0, 0, 0, 34, 35, 0, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 0, 53, 54, 55, 0, 0, 0, 0, 0, 56, 0, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 67, 0, 0, 0, 0, 68, 69, 0, 0, 70, 71, 72, 0, 0, 74, 75, 140, 0, 22, 23, 24, 0, 0, 25, 26, 27, 28, 29, 0, 0, 0, 0, 0, 0, 0, 34, 35, 0, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 0, 53, 54, 55, 0, 0, 0, 0, 0, 56, 0, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 67, 0, 0, 0, 0, 68, 69, 0, 0, 70, 71, 72, 0, 0, 74, 75, 195, 0, 22, 23, 24, 0, 0, 25, 26, 27, 28, 29, 0, 0, 0, 0, 0, 0, 0, 34, 35, 0, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 0, 53, 54, 55, 0, 0, 0, 0, 0, 56, 0, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 67, 0, 0, 0, 0, 68, 69, 0, 0, 70, 71, 72, 0, 0, 74, 75, 198, 0, 22, 23, 24, 0, 0, 25, 26, 27, 28, 29, 0, 0, 0, 0, 0, 0, 0, 34, 35, 0, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 0, 53, 54, 55, 0, 0, 0, 0, 0, 56, 0, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 67, 174, 175, 176, 177, 68, 69, 0, 0, 70, 71, 72, 0, 0, 74, 75, 0, 0, 291, 178, 179, 0, 180, 181, 182, 183, 184, 185, 0, 186, 187, 188, 189, 0, 0, 0, 190, 174, 175, 176, 177, 0, 0, 0, 0, 0, 0, 0, 0, 174,-32768, 176, 177, 0, 289, 178, 179, 0, 180, 181, 182, 183, 184, 185, 0, 186, 187, 188, 189, 0, 0, 0, 190, 174, 175, 176, 177, 186, 187, 188, 189, 0, 0, 0, 190, 174, 175, 176, 177, 0, 0, 178, 179, 342, 180, 181, 182, 183, 184, 185, 0, 186, 187, 188, 189, 0, 0, 0, 190, 174, 175, 176, 177, 186, 187, 188, 189, 0, 0, 0, 190,-32768, 0, 176, 177, 0, 0, 178, 179, 0, 180, 181, 182, 183, 184, 185, 0, 186, 187, 188, 189, 0, 0, 0, 190, 174, 175, 176, 177, 186, 187, 188, 189, 0, 0, 0, 190, 0, 0, 0, 174, 175, 176, 177, 179, 0, 180, 181, 182, 183, 184, 185, 0, 186, 187, 188, 189, 0, 0, 0, 190,-32768, 181, 182, 183, 184, 185, 0, 186, 187, 188, 189, 0, 0, 0, 190, 174, 175, 176, 177, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 182, 183, 184, 185, 0, 186, 187, 188, 189, 0, 0, 0, 190 }; static const short yycheck[] = { 17, 108, 25, 110, 93, 112, 29, 114, 25, 3, 3, 3, 3, 30, 31, 32, 33, 3, 5, 4, 4, 4, 4, 3, 5, 54, 4, 4, 4, 3, 53, 64, 121, 122, 123, 124, 125, 126, 5, 5, 64, 5, 5, 5, 67, 11, 5, 223, 67, 66, 67, 83, 84, 4, 4, 231, 85, 28, 91, 4, 65, 5, 238, 136, 4, 138, 5, 91, 91, 5, 93, 5, 17, 18, 19, 20, 57, 43, 65, 64, 64, 64, 64, 83, 84, 51, 64, 64, 64, 56, 54, 85, 115, 85, 85, 57, 90, 90, 121, 122, 123, 124, 125, 126, 90, 85, 129, 130, 131, 132, 133, 85, 56, 64, 64, 3, 139, 56, 85, 64, 86, 85, 85, 85, 64, 53, 85, 5, 66, 87, 101, 0, 103, 104, 72, 5, 5, 313, 21, 22, 23, 85, 11, 319, 320, 54, 64, 164, 324, 166, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 86, 107, 85, 109, 49, 111, 43, 113, 54, 64, 116, 64, 118, 85, 51, 17, 18, 19, 20, 49, 50, 85, 128, 367, 64, 85, 301, 302, 303, 304, 374, 86, 77, 78, 53, 310, 142, 82, 91, 87, 146, 147, 148, 149, 150, 151, 152, 77, 78, 64, 85, 91, 82, 397, 85, 4, 85, 85, 315, 316, 404, 252, 64, 169, 170, 171, 172, 77, 78, 85, 3, 86, 82, 264, 85, 266, 216, 85, 85, 85, 220, 85, 273, 64, 275, 85, 277, 362, 279, 85, 281, 85, 85, 85, 285, 201, 202, 85, 85, 239, 291, 85, 85, 64, 90, 4, 4, 64, 383, 4, 215, 217, 4, 87, 4, 68, 69, 70, 71, 224, 225, 74, 75, 64, 315, 316, 64, 232, 233, 234, 235, 4, 237, 64, 240, 241, 242, 82, 90, 4, 87, 4, 4, 4, 250, 47, 48, 49, 50, 255, 4, 342, 4, 4, 4, 295, 4, 297, 4, 4, 4, 4, 0, 4, 4, 4, 0, 89, 308, 71, 72, 73, 9, 75, 76, 77, 78, 389, -1, -1, 82, 309, -1, 289, 4, 49, 50, 292, -1, 329, -1, 331, -1, 299, -1, -1, -1, -1, -1, -1, -1, 306, -1, 309, -1, 47, 48, 49, 50, 314, -1, 75, 76, 77, 78, 355, 321, 322, 82, -1, -1, -1, 407, -1, -1, -1, -1, 47, 48, 49, 50, 73, 338, 75, 76, 77, 78, -1, -1, -1, 82, -1, -1, -1, 64, 65, 66, 352, 68, 69, 70, 71, 72, 73, -1, 75, 76, 77, 78, -1, -1, -1, 82, -1, 369, -1, -1, 1, -1, 3, 375, 5, -1, 7, 8, 9, -1, -1, 12, 13, 14, 15, 16, 17, 18, 19, 20, -1, 393, -1, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, -1, 44, 45, 46, -1, -1, -1, -1, -1, 52, -1, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 74, -1, -1, -1, -1, 79, 80, -1, -1, 83, 84, 85, 1, 87, 88, 89, 5, -1, 7, 8, 9, -1, -1, 12, 13, 14, 15, 16, -1, -1, -1, -1, -1, -1, -1, 24, 25, -1, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, -1, 44, 45, 46, -1, -1, -1, -1, -1, 52, -1, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 74, -1, -1, -1, -1, 79, 80, -1, -1, 83, 84, 85, -1, 87, 88, 89, 1, -1, -1, 4, 5, -1, 7, 8, 9, -1, -1, 12, 13, 14, 15, 16, -1, -1, -1, -1, -1, -1, -1, 24, 25, -1, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, -1, 44, 45, 46, -1, -1, -1, -1, -1, 52, -1, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 74, -1, -1, -1, -1, 79, 80, -1, -1, 83, 84, 85, -1, -1, 88, 89, 3, -1, 5, -1, 7, 8, 9, -1, -1, 12, 13, 14, 15, 16, -1, -1, -1, -1, -1, -1, -1, 24, 25, -1, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, -1, 44, 45, 46, -1, -1, -1, -1, -1, 52, -1, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 74, -1, -1, -1, -1, 79, 80, -1, -1, -1, -1, 85, -1, -1, 88, 89, 90, 3, -1, 5, -1, 7, 8, 9, -1, -1, 12, 13, 14, 15, 16, -1, -1, -1, -1, -1, -1, -1, 24, 25, -1, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, -1, 44, 45, 46, -1, -1, -1, -1, -1, 52, -1, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 74, -1, -1, -1, -1, 79, 80, -1, -1, 83, 84, 85, -1, -1, 88, 89, 3, -1, 5, -1, 7, 8, 9, -1, -1, 12, 13, 14, 15, 16, -1, -1, -1, -1, -1, -1, -1, 24, 25, -1, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, -1, 44, 45, 46, -1, -1, -1, -1, -1, 52, -1, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 74, -1, -1, -1, -1, 79, 80, -1, -1, 83, 84, 85, -1, -1, 88, 89, 3, -1, 5, -1, 7, 8, 9, -1, -1, 12, 13, 14, 15, 16, -1, -1, -1, -1, -1, -1, -1, 24, 25, -1, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, -1, 44, 45, 46, -1, -1, -1, -1, -1, 52, -1, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 74, -1, -1, -1, -1, 79, 80, -1, -1, 83, 84, 85, -1, -1, 88, 89, 4, 5, -1, 7, 8, 9, -1, -1, 12, 13, 14, 15, 16, -1, -1, -1, -1, -1, -1, -1, 24, 25, -1, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, -1, 44, 45, 46, -1, -1, -1, -1, -1, 52, -1, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 74, -1, -1, -1, -1, 79, 80, -1, -1, 83, 84, 85, -1, -1, 88, 89, 4, 5, -1, 7, 8, 9, -1, -1, 12, 13, 14, 15, 16, -1, -1, -1, -1, -1, -1, -1, 24, 25, -1, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, -1, 44, 45, 46, -1, -1, -1, -1, -1, 52, -1, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 74, -1, -1, -1, -1, 79, 80, -1, -1, 83, 84, 85, -1, -1, 88, 89, 4, 5, -1, 7, 8, 9, -1, -1, 12, 13, 14, 15, 16, -1, -1, -1, -1, -1, -1, -1, 24, 25, -1, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, -1, 44, 45, 46, -1, -1, -1, -1, -1, 52, -1, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 74, -1, -1, -1, -1, 79, 80, -1, -1, 83, 84, 85, -1, -1, 88, 89, 4, 5, -1, 7, 8, 9, -1, -1, 12, 13, 14, 15, 16, -1, -1, -1, -1, -1, -1, -1, 24, 25, -1, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, -1, 44, 45, 46, -1, -1, -1, -1, -1, 52, -1, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 74, -1, -1, -1, -1, 79, 80, -1, -1, 83, 84, 85, -1, -1, 88, 89, 4, 5, -1, 7, 8, 9, -1, -1, 12, 13, 14, 15, 16, -1, -1, -1, -1, -1, -1, -1, 24, 25, -1, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, -1, 44, 45, 46, -1, -1, -1, -1, -1, 52, -1, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 74, -1, -1, -1, -1, 79, 80, -1, -1, 83, 84, 85, -1, -1, 88, 89, 4, 5, -1, 7, 8, 9, -1, -1, 12, 13, 14, 15, 16, -1, -1, -1, -1, -1, -1, -1, 24, 25, -1, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, -1, 44, 45, 46, -1, -1, -1, -1, -1, 52, -1, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 74, -1, -1, -1, -1, 79, 80, -1, -1, 83, 84, 85, -1, -1, 88, 89, 4, 5, -1, 7, 8, 9, -1, -1, 12, 13, 14, 15, 16, -1, -1, -1, -1, -1, -1, -1, 24, 25, -1, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, -1, 44, 45, 46, -1, -1, -1, -1, -1, 52, -1, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 74, -1, -1, -1, -1, 79, 80, -1, -1, 83, 84, 85, -1, -1, 88, 89, 4, 5, -1, 7, 8, 9, -1, -1, 12, 13, 14, 15, 16, -1, -1, -1, -1, -1, -1, -1, 24, 25, -1, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, -1, 44, 45, 46, -1, -1, -1, -1, -1, 52, -1, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 74, -1, -1, -1, -1, 79, 80, -1, -1, 83, 84, 85, -1, -1, 88, 89, 5, -1, 7, 8, 9, -1, -1, 12, 13, 14, 15, 16, -1, -1, -1, -1, -1, -1, -1, 24, 25, -1, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, -1, 44, 45, 46, -1, -1, -1, -1, -1, 52, -1, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, -1, 65, -1, -1, -1, -1, -1, -1, -1, -1, 74, -1, -1, -1, -1, 79, 80, -1, -1, 83, 84, 85, -1, -1, 88, 89, 5, -1, 7, 8, 9, -1, -1, 12, 13, 14, 15, 16, -1, -1, -1, -1, -1, -1, -1, 24, 25, -1, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, -1, 44, 45, 46, -1, -1, -1, -1, -1, 52, -1, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, -1, 65, -1, -1, -1, -1, -1, -1, -1, -1, 74, -1, -1, -1, -1, 79, 80, -1, -1, 83, 84, 85, -1, -1, 88, 89, 5, -1, 7, 8, 9, -1, -1, 12, 13, 14, 15, 16, -1, -1, -1, -1, -1, -1, -1, 24, 25, -1, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, -1, 44, 45, 46, -1, -1, -1, -1, -1, 52, -1, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, -1, 65, -1, -1, -1, -1, -1, -1, -1, -1, 74, -1, -1, -1, -1, 79, 80, -1, -1, 83, 84, 85, -1, -1, 88, 89, 5, -1, 7, 8, 9, -1, -1, 12, 13, 14, 15, 16, -1, -1, -1, -1, -1, -1, -1, 24, 25, -1, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, -1, 44, 45, 46, -1, -1, -1, -1, -1, 52, -1, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, -1, 65, -1, -1, -1, -1, -1, -1, -1, -1, 74, -1, -1, -1, -1, 79, 80, -1, -1, 83, 84, 85, -1, -1, 88, 89, 5, -1, 7, 8, 9, -1, -1, 12, 13, 14, 15, 16, -1, -1, -1, -1, -1, -1, -1, 24, 25, -1, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, -1, 44, 45, 46, -1, -1, -1, -1, -1, 52, -1, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, -1, 65, -1, -1, -1, -1, -1, -1, -1, -1, 74, -1, -1, -1, -1, 79, 80, -1, -1, 83, 84, 85, -1, -1, 88, 89, 5, -1, 7, 8, 9, -1, -1, 12, 13, 14, 15, 16, -1, -1, -1, -1, -1, -1, -1, 24, 25, -1, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, -1, 44, 45, 46, -1, -1, -1, -1, -1, 52, -1, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, -1, 65, -1, -1, -1, -1, -1, -1, -1, -1, 74, -1, -1, -1, -1, 79, 80, -1, -1, 83, 84, 85, -1, -1, 88, 89, 5, -1, 7, 8, 9, -1, -1, 12, 13, 14, 15, 16, -1, -1, -1, -1, -1, -1, -1, 24, 25, -1, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, -1, 44, 45, 46, -1, -1, -1, -1, -1, 52, -1, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, -1, 65, -1, -1, -1, -1, -1, -1, -1, -1, 74, -1, -1, -1, -1, 79, 80, -1, -1, 83, 84, 85, -1, -1, 88, 89, 5, -1, 7, 8, 9, -1, -1, 12, 13, 14, 15, 16, -1, -1, -1, -1, -1, -1, -1, 24, 25, -1, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, -1, 44, 45, 46, -1, -1, -1, -1, -1, 52, -1, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, -1, 65, -1, -1, -1, -1, -1, -1, -1, -1, 74, -1, -1, -1, -1, 79, 80, -1, -1, 83, 84, 85, -1, -1, 88, 89, 5, -1, 7, 8, 9, -1, -1, 12, 13, 14, 15, 16, -1, -1, -1, -1, -1, -1, -1, 24, 25, -1, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, -1, 44, 45, 46, -1, -1, -1, -1, -1, 52, -1, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 74, -1, -1, -1, -1, 79, 80, -1, -1, 83, 84, 85, -1, -1, 88, 89, 5, -1, 7, 8, 9, -1, -1, 12, 13, 14, 15, 16, -1, -1, -1, -1, -1, -1, -1, 24, 25, -1, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, -1, 44, 45, 46, -1, -1, -1, -1, -1, 52, -1, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 74, -1, -1, -1, -1, 79, 80, -1, -1, 83, 84, 85, -1, -1, 88, 89, 5, -1, 7, 8, 9, -1, -1, 12, 13, 14, 15, 16, -1, -1, -1, -1, -1, -1, -1, 24, 25, -1, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, -1, 44, 45, 46, -1, -1, -1, -1, -1, 52, -1, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 74, -1, -1, -1, -1, 79, 80, -1, -1, 83, 84, 85, -1, -1, 88, 89, 5, -1, 7, 8, 9, -1, -1, 12, 13, 14, 15, 16, -1, -1, -1, -1, -1, -1, -1, 24, 25, -1, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, -1, 44, 45, 46, -1, -1, -1, -1, -1, 52, -1, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 74, 47, 48, 49, 50, 79, 80, -1, -1, 83, 84, 85, -1, -1, 88, 89, -1, -1, 64, 65, 66, -1, 68, 69, 70, 71, 72, 73, -1, 75, 76, 77, 78, -1, -1, -1, 82, 47, 48, 49, 50, -1, -1, -1, -1, -1, -1, -1, -1, 47, 48, 49, 50, -1, 64, 65, 66, -1, 68, 69, 70, 71, 72, 73, -1, 75, 76, 77, 78, -1, -1, -1, 82, 47, 48, 49, 50, 75, 76, 77, 78, -1, -1, -1, 82, 47, 48, 49, 50, -1, -1, 65, 66, 67, 68, 69, 70, 71, 72, 73, -1, 75, 76, 77, 78, -1, -1, -1, 82, 47, 48, 49, 50, 75, 76, 77, 78, -1, -1, -1, 82, 47, -1, 49, 50, -1, -1, 65, 66, -1, 68, 69, 70, 71, 72, 73, -1, 75, 76, 77, 78, -1, -1, -1, 82, 47, 48, 49, 50, 75, 76, 77, 78, -1, -1, -1, 82, -1, -1, -1, 47, 48, 49, 50, 66, -1, 68, 69, 70, 71, 72, 73, -1, 75, 76, 77, 78, -1, -1, -1, 82, 68, 69, 70, 71, 72, 73, -1, 75, 76, 77, 78, -1, -1, -1, 82, 47, 48, 49, 50, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 70, 71, 72, 73, -1, 75, 76, 77, 78, -1, -1, -1, 82 }; #define YYPURE 1 /* -*-C-*- Note some compilers choke on comments on `#line' lines. */ #line 3 "bison.simple" /* Skeleton output parser for bison, Copyright (C) 1984, 1989, 1990 Bob Corbett and Richard Stallman This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 1, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifdef __GNUC__ #define alloca __builtin_alloca #else /* Not GNU C. */ #if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__) #include <alloca.h> #endif /* Sparc. */ #endif /* Not GNU C. */ /* This is the parser code that is written into each bison parser when the %semantic_parser declaration is not specified in the grammar. It was written by Richard Stallman by simplifying the hairy parser used when %semantic_parser is specified. */ /* Note: there must be only one dollar sign in this file. It is replaced by the list of actions, each action as one case of the switch. */ #define yyerrok (yyerrstatus = 0) #define yyclearin (yychar = YYEMPTY) #define YYEMPTY -2 #define YYEOF 0 #define YYACCEPT return(0) #define YYABORT return(1) #define YYERROR goto yyerrlab1 /* Like YYERROR except do call yyerror. This remains here temporarily to ease the transition to the new meaning of YYERROR, for GCC. Once GCC version 2 has supplanted version 1, this can go. */ #define YYFAIL goto yyerrlab #define YYRECOVERING() (!!yyerrstatus) #define YYBACKUP(token, value) \ do \ if (yychar == YYEMPTY && yylen == 1) \ { yychar = (token), yylval = (value); \ yychar1 = YYTRANSLATE (yychar); \ YYPOPSTACK; \ goto yybackup; \ } \ else \ { yyerror ("syntax error: cannot back up"); YYERROR; } \ while (0) #define YYTERROR 1 #define YYERRCODE 256 #ifndef YYIMPURE #define YYLEX yylex() #endif #ifndef YYPURE #define YYLEX yylex(&yylval, &yylloc) #endif /* If nonreentrant, generate the variables here */ #ifndef YYIMPURE int yychar; /* the lookahead symbol */ YYSTYPE yylval; /* the semantic value of the */ /* lookahead symbol */ #ifdef YYLSP_NEEDED YYLTYPE yylloc; /* location data for the lookahead */ /* symbol */ #endif int yynerrs; /* number of parse errors so far */ #endif /* YYIMPURE */ #if YYDEBUG != 0 int yydebug; /* nonzero means print parse trace */ /* Since this is uninitialized, it does not stop multiple parsers from coexisting. */ #endif /* YYINITDEPTH indicates the initial size of the parser's stacks */ #ifndef YYINITDEPTH #define YYINITDEPTH 200 #endif /* YYMAXDEPTH is the maximum size the stacks can grow to (effective only if the built-in stack extension method is used). */ #if YYMAXDEPTH == 0 #undef YYMAXDEPTH #endif #ifndef YYMAXDEPTH #define YYMAXDEPTH 10000 #endif /* This is the most reliable way to avoid incompatibilities in available built-in functions on various systems. */ static void __yy_bcopy (from, to, count) char *from; char *to; int count; { register char *f = from; register char *t = to; register int i = count; while (i-- > 0) *t++ = *f++; } #line 131 "bison.simple" int yyparse() { register int yystate; register int yyn; register short *yyssp; register YYSTYPE *yyvsp; int yyerrstatus; /* number of tokens to shift before error messages enabled */ int yychar1; /* lookahead token as an internal (translated) token number */ short yyssa[YYINITDEPTH]; /* the state stack */ YYSTYPE yyvsa[YYINITDEPTH]; /* the semantic value stack */ short *yyss = yyssa; /* refer to the stacks thru separate pointers */ YYSTYPE *yyvs = yyvsa; /* to allow yyoverflow to reallocate them elsewhere */ #ifdef YYLSP_NEEDED YYLTYPE *yyls = yylsa; YYLTYPE *yylsp; YYLTYPE yylsa[YYINITDEPTH]; /* the location stack */ #define YYPOPSTACK (yyvsp--, yysp--, yylsp--) #else #define YYPOPSTACK (yyvsp--, yysp--) #endif int yystacksize = YYINITDEPTH; #ifndef YYPURE int yychar; YYSTYPE yylval; int yynerrs; #ifdef YYLSP_NEEDED YYLTYPE yylloc; #endif #endif YYSTYPE yyval; /* the variable used to return */ /* semantic values from the action */ /* routines */ int yylen; #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Starting parse\n"); #endif yystate = 0; yyerrstatus = 0; yynerrs = 0; yychar = YYEMPTY; /* Cause a token to be read. */ /* Initialize stack pointers. Waste one element of value and location stack so that they stay on the same level as the state stack. */ yyssp = yyss - 1; yyvsp = yyvs; #ifdef YYLSP_NEEDED yylsp = yyls; #endif /* Push a new state, which is found in yystate . */ /* In all cases, when you get here, the value and location stacks have just been pushed. so pushing a state here evens the stacks. */ yynewstate: *++yyssp = yystate; if (yyssp >= yyss + yystacksize - 1) { /* Give user a chance to reallocate the stack */ /* Use copies of these so that the &'s don't force the real ones into memory. */ YYSTYPE *yyvs1 = yyvs; short *yyss1 = yyss; #ifdef YYLSP_NEEDED YYLTYPE *yyls1 = yyls; #endif /* Get the current used size of the three stacks, in elements. */ int size = yyssp - yyss + 1; #ifdef yyoverflow /* Each stack pointer address is followed by the size of the data in use in that stack, in bytes. */ yyoverflow("parser stack overflow", &yyss1, size * sizeof (*yyssp), &yyvs1, size * sizeof (*yyvsp), #ifdef YYLSP_NEEDED &yyls1, size * sizeof (*yylsp), #endif &yystacksize); yyss = yyss1; yyvs = yyvs1; #ifdef YYLSP_NEEDED yyls = yyls1; #endif #else /* no yyoverflow */ /* Extend the stack our own way. */ if (yystacksize >= YYMAXDEPTH) { yyerror("parser stack overflow"); return 2; } yystacksize *= 2; if (yystacksize > YYMAXDEPTH) yystacksize = YYMAXDEPTH; yyss = (short *) alloca (yystacksize * sizeof (*yyssp)); __yy_bcopy ((char *)yyss1, (char *)yyss, size * sizeof (*yyssp)); yyvs = (YYSTYPE *) alloca (yystacksize * sizeof (*yyvsp)); __yy_bcopy ((char *)yyvs1, (char *)yyvs, size * sizeof (*yyvsp)); #ifdef YYLSP_NEEDED yyls = (YYLTYPE *) alloca (yystacksize * sizeof (*yylsp)); __yy_bcopy ((char *)yyls1, (char *)yyls, size * sizeof (*yylsp)); #endif #endif /* no yyoverflow */ yyssp = yyss + size - 1; yyvsp = yyvs + size - 1; #ifdef YYLSP_NEEDED yylsp = yyls + size - 1; #endif #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Stack size increased to %d\n", yystacksize); #endif if (yyssp >= yyss + yystacksize - 1) YYABORT; } #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Entering state %d\n", yystate); #endif yybackup: /* Do appropriate processing given the current state. */ /* Read a lookahead token if we need one and don't already have one. */ /* yyresume: */ /* First try to decide what to do without reference to lookahead token. */ yyn = yypact[yystate]; if (yyn == YYFLAG) goto yydefault; /* Not known => get a lookahead token if don't already have one. */ /* yychar is either YYEMPTY or YYEOF or a valid token in external form. */ if (yychar == YYEMPTY) { #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Reading a token: "); #endif yychar = YYLEX; } /* Convert token to internal form (in yychar1) for indexing tables with */ if (yychar <= 0) /* This means end of input. */ { yychar1 = 0; yychar = YYEOF; /* Don't call YYLEX any more */ #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Now at end of input.\n"); #endif } else { yychar1 = YYTRANSLATE(yychar); #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Next token is %d (%s)\n", yychar, yytname[yychar1]); #endif } yyn += yychar1; if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != yychar1) goto yydefault; yyn = yytable[yyn]; /* yyn is what to do for this token type in this state. Negative => reduce, -yyn is rule number. Positive => shift, yyn is new state. New state is final state => don't bother to shift, just return success. 0, or most negative number => error. */ if (yyn < 0) { if (yyn == YYFLAG) goto yyerrlab; yyn = -yyn; goto yyreduce; } else if (yyn == 0) goto yyerrlab; if (yyn == YYFINAL) YYACCEPT; /* Shift the lookahead token. */ #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Shifting token %d (%s), ", yychar, yytname[yychar1]); #endif /* Discard the token being shifted unless it is eof. */ if (yychar != YYEOF) yychar = YYEMPTY; *++yyvsp = yylval; #ifdef YYLSP_NEEDED *++yylsp = yylloc; #endif /* count tokens shifted since error; after three, turn off error status. */ if (yyerrstatus) yyerrstatus--; yystate = yyn; goto yynewstate; /* Do the default action for the current state. */ yydefault: yyn = yydefact[yystate]; if (yyn == 0) goto yyerrlab; /* Do a reduction. yyn is the number of a rule to reduce with. */ yyreduce: yylen = yyr2[yyn]; yyval = yyvsp[1-yylen]; /* implement default value of the action */ #if YYDEBUG != 0 if (yydebug) { if (yylen == 1) fprintf (stderr, "Reducing 1 value via rule %d (line %d), ", yyn, yyrline[yyn]); else fprintf (stderr, "Reducing %d values via rule %d (line %d), ", yylen, yyn, yyrline[yyn]); } #endif switch (yyn) { case 1: #line 107 "perly.y" { #if defined(YYDEBUG) && defined(DEBUGGING) yydebug = (debug & 1); #endif ; break;} case 2: #line 113 "perly.y" { if (in_eval) eval_root = block_head(yyvsp[0].cmdval); else main_root = block_head(yyvsp[0].cmdval); ; break;} case 3: #line 121 "perly.y" { yyval.compval.comp_true = yyvsp[-2].cmdval; yyval.compval.comp_alt = yyvsp[0].cmdval; ; break;} case 4: #line 123 "perly.y" { yyval.compval.comp_true = yyvsp[-1].cmdval; yyval.compval.comp_alt = yyvsp[0].cmdval; ; break;} case 5: #line 128 "perly.y" { yyval.cmdval = Nullcmd; ; break;} case 6: #line 130 "perly.y" { yyval.cmdval = yyvsp[0].cmdval; ; break;} case 7: #line 132 "perly.y" { cmdline = yyvsp[-4].ival; yyval.cmdval = make_ccmd(C_ELSIF,yyvsp[-2].arg,yyvsp[0].compval); ; break;} case 8: #line 138 "perly.y" { yyval.cmdval = block_head(yyvsp[-1].cmdval); if (cmdline > yyvsp[-3].ival) cmdline = yyvsp[-3].ival; if (savestack->ary_fill > yyvsp[-2].ival) restorelist(yyvsp[-2].ival); ; break;} case 9: #line 147 "perly.y" { yyval.ival = savestack->ary_fill; ; break;} case 10: #line 152 "perly.y" { yyval.cmdval = Nullcmd; ; break;} case 11: #line 154 "perly.y" { yyval.cmdval = append_line(yyvsp[-1].cmdval,yyvsp[0].cmdval); ; break;} case 12: #line 159 "perly.y" { yyval.cmdval = Nullcmd; ; break;} case 13: #line 161 "perly.y" { yyval.cmdval = add_label(yyvsp[-1].cval,yyvsp[0].cmdval); ; break;} case 15: #line 164 "perly.y" { if (yyvsp[-1].cval != Nullch) { yyval.cmdval = add_label(yyvsp[-1].cval, make_acmd(C_EXPR, Nullstab, Nullarg, Nullarg) ); } else { yyval.cmdval = Nullcmd; cmdline = NOLINE; } ; break;} case 16: #line 173 "perly.y" { yyval.cmdval = add_label(yyvsp[-2].cval,yyvsp[-1].cmdval); ; break;} case 17: #line 178 "perly.y" { yyval.cmdval = Nullcmd; ; break;} case 18: #line 180 "perly.y" { yyval.cmdval = make_acmd(C_EXPR, Nullstab, yyvsp[0].arg, Nullarg); ; break;} case 19: #line 182 "perly.y" { yyval.cmdval = addcond( make_acmd(C_EXPR, Nullstab, Nullarg, yyvsp[-2].arg), yyvsp[0].arg); ; break;} case 20: #line 185 "perly.y" { yyval.cmdval = addcond(invert( make_acmd(C_EXPR, Nullstab, Nullarg, yyvsp[-2].arg)), yyvsp[0].arg); ; break;} case 21: #line 188 "perly.y" { yyval.cmdval = addloop( make_acmd(C_EXPR, Nullstab, Nullarg, yyvsp[-2].arg), yyvsp[0].arg); ; break;} case 22: #line 191 "perly.y" { yyval.cmdval = addloop(invert( make_acmd(C_EXPR, Nullstab, Nullarg, yyvsp[-2].arg)), yyvsp[0].arg); ; break;} case 23: #line 197 "perly.y" { cmdline = yyvsp[-4].ival; yyval.cmdval = make_icmd(C_IF,yyvsp[-2].arg,yyvsp[0].compval); ; break;} case 24: #line 200 "perly.y" { cmdline = yyvsp[-4].ival; yyval.cmdval = invert(make_icmd(C_IF,yyvsp[-2].arg,yyvsp[0].compval)); ; break;} case 25: #line 203 "perly.y" { cmdline = yyvsp[-2].ival; yyval.cmdval = make_ccmd(C_IF,cmd_to_arg(yyvsp[-1].cmdval),yyvsp[0].compval); ; break;} case 26: #line 206 "perly.y" { cmdline = yyvsp[-2].ival; yyval.cmdval = invert(make_ccmd(C_IF,cmd_to_arg(yyvsp[-1].cmdval),yyvsp[0].compval)); ; break;} case 27: #line 212 "perly.y" { cmdline = yyvsp[-4].ival; yyval.cmdval = wopt(add_label(yyvsp[-5].cval, make_ccmd(C_WHILE,yyvsp[-2].arg,yyvsp[0].compval) )); ; break;} case 28: #line 216 "perly.y" { cmdline = yyvsp[-4].ival; yyval.cmdval = wopt(add_label(yyvsp[-5].cval, invert(make_ccmd(C_WHILE,yyvsp[-2].arg,yyvsp[0].compval)) )); ; break;} case 29: #line 220 "perly.y" { cmdline = yyvsp[-2].ival; yyval.cmdval = wopt(add_label(yyvsp[-3].cval, make_ccmd(C_WHILE, cmd_to_arg(yyvsp[-1].cmdval),yyvsp[0].compval) )); ; break;} case 30: #line 224 "perly.y" { cmdline = yyvsp[-2].ival; yyval.cmdval = wopt(add_label(yyvsp[-3].cval, invert(make_ccmd(C_WHILE, cmd_to_arg(yyvsp[-1].cmdval),yyvsp[0].compval)) )); ; break;} case 31: #line 228 "perly.y" { cmdline = yyvsp[-5].ival; /* * The following gobbledygook catches EXPRs that * aren't explicit array refs and translates * foreach VAR (EXPR) { * into * @ary = EXPR; * foreach VAR (@ary) { * where @ary is a hidden array made by genstab(). * (Note that @ary may become a local array if * it is determined that it might be called * recursively. See cmd_tosave().) */ if (yyvsp[-2].arg->arg_type != O_ARRAY) { scrstab = aadd(genstab()); yyval.cmdval = append_line( make_acmd(C_EXPR, Nullstab, l(make_op(O_ASSIGN,2, listish(make_op(O_ARRAY, 1, stab2arg(A_STAB,scrstab), Nullarg,Nullarg )), listish(make_list(yyvsp[-2].arg)), Nullarg)), Nullarg), wopt(over(yyvsp[-4].stabval,add_label(yyvsp[-6].cval, make_ccmd(C_WHILE, make_op(O_ARRAY, 1, stab2arg(A_STAB,scrstab), Nullarg,Nullarg ), yyvsp[0].compval))))); yyval.cmdval->c_line = yyvsp[-5].ival; yyval.cmdval->c_head->c_line = yyvsp[-5].ival; } else { yyval.cmdval = wopt(over(yyvsp[-4].stabval,add_label(yyvsp[-6].cval, make_ccmd(C_WHILE,yyvsp[-2].arg,yyvsp[0].compval) ))); } ; break;} case 32: #line 267 "perly.y" { cmdline = yyvsp[-4].ival; if (yyvsp[-2].arg->arg_type != O_ARRAY) { scrstab = aadd(genstab()); yyval.cmdval = append_line( make_acmd(C_EXPR, Nullstab, l(make_op(O_ASSIGN,2, listish(make_op(O_ARRAY, 1, stab2arg(A_STAB,scrstab), Nullarg,Nullarg )), listish(make_list(yyvsp[-2].arg)), Nullarg)), Nullarg), wopt(over(defstab,add_label(yyvsp[-5].cval, make_ccmd(C_WHILE, make_op(O_ARRAY, 1, stab2arg(A_STAB,scrstab), Nullarg,Nullarg ), yyvsp[0].compval))))); yyval.cmdval->c_line = yyvsp[-4].ival; yyval.cmdval->c_head->c_line = yyvsp[-4].ival; } else { /* lisp, anyone? */ yyval.cmdval = wopt(over(defstab,add_label(yyvsp[-5].cval, make_ccmd(C_WHILE,yyvsp[-2].arg,yyvsp[0].compval) ))); } ; break;} case 33: #line 295 "perly.y" { yyval.compval.comp_true = yyvsp[0].cmdval; yyval.compval.comp_alt = yyvsp[-2].cmdval; cmdline = yyvsp[-8].ival; yyval.cmdval = append_line(yyvsp[-6].cmdval,wopt(add_label(yyvsp[-9].cval, make_ccmd(C_WHILE,yyvsp[-4].arg,yyval.compval) ))); ; break;} case 34: #line 301 "perly.y" { yyval.cmdval = add_label(yyvsp[-1].cval,make_ccmd(C_BLOCK,Nullarg,yyvsp[0].compval)); ; break;} case 35: #line 306 "perly.y" { yyval.cmdval = Nullcmd; ; break;} case 37: #line 312 "perly.y" { (void)scanstr("1"); yyval.arg = yylval.arg; ; break;} case 39: #line 318 "perly.y" { yyval.cval = Nullch; ; break;} case 41: #line 324 "perly.y" { yyval.ival = 0; ; break;} case 42: #line 326 "perly.y" { yyval.ival = 0; ; break;} case 43: #line 328 "perly.y" { yyval.ival = 0; ; break;} case 44: #line 333 "perly.y" { if (strEQ(yyvsp[-2].cval,"stdout")) make_form(stabent("STDOUT",TRUE),yyvsp[0].formval); else if (strEQ(yyvsp[-2].cval,"stderr")) make_form(stabent("STDERR",TRUE),yyvsp[0].formval); else make_form(stabent(yyvsp[-2].cval,TRUE),yyvsp[0].formval); Safefree(yyvsp[-2].cval); yyvsp[-2].cval = Nullch; ; break;} case 45: #line 341 "perly.y" { make_form(stabent("STDOUT",TRUE),yyvsp[0].formval); ; break;} case 46: #line 346 "perly.y" { make_sub(yyvsp[-1].cval,yyvsp[0].cmdval); cmdline = NOLINE; if (savestack->ary_fill > yyvsp[-2].ival) restorelist(yyvsp[-2].ival); ; break;} case 47: #line 354 "perly.y" { char tmpbuf[256]; STAB *tmpstab; savehptr(&curstash); saveitem(curstname); str_set(curstname,yyvsp[-1].cval); sprintf(tmpbuf,"'_%s",yyvsp[-1].cval); tmpstab = stabent(tmpbuf,TRUE); if (!stab_xhash(tmpstab)) stab_xhash(tmpstab) = hnew(0); curstash = stab_xhash(tmpstab); if (!curstash->tbl_name) curstash->tbl_name = savestr(yyvsp[-1].cval); curstash->tbl_coeffsize = 0; Safefree(yyvsp[-1].cval); yyvsp[-1].cval = Nullch; cmdline = NOLINE; ; break;} case 48: #line 376 "perly.y" { yyval.arg = yyvsp[0].arg; ; break;} case 49: #line 381 "perly.y" { yyval.arg = make_op(O_COMMA, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 51: #line 387 "perly.y" { yyval.arg = yyvsp[0].arg; ; break;} case 52: #line 392 "perly.y" { yyvsp[-2].arg = listish(yyvsp[-2].arg); if (yyvsp[-2].arg->arg_type == O_ASSIGN && yyvsp[-2].arg->arg_len == 1) yyvsp[-2].arg->arg_type = O_ITEM; /* a local() */ if (yyvsp[-2].arg->arg_type == O_LIST) yyvsp[0].arg = listish(yyvsp[0].arg); yyval.arg = l(make_op(O_ASSIGN, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg)); ; break;} case 53: #line 399 "perly.y" { yyval.arg = l(make_op(O_POW, 2, yyvsp[-3].arg, yyvsp[0].arg, Nullarg)); ; break;} case 54: #line 401 "perly.y" { yyval.arg = l(make_op(yyvsp[-2].ival, 2, yyvsp[-3].arg, yyvsp[0].arg, Nullarg)); ; break;} case 55: #line 403 "perly.y" { yyval.arg = rcatmaybe(l(make_op(yyvsp[-2].ival, 2, yyvsp[-3].arg, yyvsp[0].arg, Nullarg)));; break;} case 56: #line 405 "perly.y" { yyval.arg = l(make_op(O_LEFT_SHIFT, 2, yyvsp[-3].arg, yyvsp[0].arg, Nullarg)); ; break;} case 57: #line 407 "perly.y" { yyval.arg = l(make_op(O_RIGHT_SHIFT, 2, yyvsp[-3].arg, yyvsp[0].arg, Nullarg)); ; break;} case 58: #line 409 "perly.y" { yyval.arg = l(make_op(O_BIT_AND, 2, yyvsp[-3].arg, yyvsp[0].arg, Nullarg)); ; break;} case 59: #line 411 "perly.y" { yyval.arg = l(make_op(O_XOR, 2, yyvsp[-3].arg, yyvsp[0].arg, Nullarg)); ; break;} case 60: #line 413 "perly.y" { yyval.arg = l(make_op(O_BIT_OR, 2, yyvsp[-3].arg, yyvsp[0].arg, Nullarg)); ; break;} case 61: #line 419 "perly.y" { yyval.arg = make_op(O_POW, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 62: #line 421 "perly.y" { if (yyvsp[-1].ival == O_REPEAT) yyvsp[-2].arg = listish(yyvsp[-2].arg); yyval.arg = make_op(yyvsp[-1].ival, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); if (yyvsp[-1].ival == O_REPEAT) { if (yyval.arg[1].arg_type != A_EXPR || yyval.arg[1].arg_ptr.arg_arg->arg_type != O_LIST) yyval.arg[1].arg_flags &= ~AF_ARYOK; } ; break;} case 63: #line 430 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 64: #line 432 "perly.y" { yyval.arg = make_op(O_LEFT_SHIFT, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 65: #line 434 "perly.y" { yyval.arg = make_op(O_RIGHT_SHIFT, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 66: #line 436 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 67: #line 438 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 68: #line 440 "perly.y" { yyval.arg = make_op(O_BIT_AND, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 69: #line 442 "perly.y" { yyval.arg = make_op(O_XOR, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 70: #line 444 "perly.y" { yyval.arg = make_op(O_BIT_OR, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 71: #line 446 "perly.y" { arg4 = Nullarg; yyval.arg = make_op(O_F_OR_R, 4, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 72: #line 449 "perly.y" { yyval.arg = make_op(O_AND, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 73: #line 451 "perly.y" { yyval.arg = make_op(O_OR, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 74: #line 453 "perly.y" { yyval.arg = make_op(O_COND_EXPR, 3, yyvsp[-4].arg, yyvsp[-2].arg, yyvsp[0].arg); ; break;} case 75: #line 455 "perly.y" { yyval.arg = mod_match(O_MATCH, yyvsp[-2].arg, yyvsp[0].arg); ; break;} case 76: #line 457 "perly.y" { yyval.arg = mod_match(O_NMATCH, yyvsp[-2].arg, yyvsp[0].arg); ; break;} case 77: #line 459 "perly.y" { yyval.arg = yyvsp[0].arg; ; break;} case 78: #line 464 "perly.y" { yyval.arg = make_op(O_NEGATE, 1, yyvsp[0].arg, Nullarg, Nullarg); ; break;} case 79: #line 466 "perly.y" { yyval.arg = yyvsp[0].arg; ; break;} case 80: #line 468 "perly.y" { yyval.arg = make_op(O_NOT, 1, yyvsp[0].arg, Nullarg, Nullarg); ; break;} case 81: #line 470 "perly.y" { yyval.arg = make_op(O_COMPLEMENT, 1, yyvsp[0].arg, Nullarg, Nullarg);; break;} case 82: #line 472 "perly.y" { yyval.arg = addflags(1, AF_POST|AF_UP, l(make_op(O_ITEM,1,yyvsp[-1].arg,Nullarg,Nullarg))); ; break;} case 83: #line 475 "perly.y" { yyval.arg = addflags(1, AF_POST, l(make_op(O_ITEM,1,yyvsp[-1].arg,Nullarg,Nullarg))); ; break;} case 84: #line 478 "perly.y" { yyval.arg = addflags(1, AF_PRE|AF_UP, l(make_op(O_ITEM,1,yyvsp[0].arg,Nullarg,Nullarg))); ; break;} case 85: #line 481 "perly.y" { yyval.arg = addflags(1, AF_PRE, l(make_op(O_ITEM,1,yyvsp[0].arg,Nullarg,Nullarg))); ; break;} case 86: #line 484 "perly.y" { opargs[yyvsp[-1].ival] = 0; /* force it special */ yyval.arg = make_op(yyvsp[-1].ival, 1, stab2arg(A_STAB,stabent(yyvsp[0].cval,TRUE)), Nullarg, Nullarg); ; break;} case 87: #line 490 "perly.y" { opargs[yyvsp[-1].ival] = 1; yyval.arg = make_op(yyvsp[-1].ival, 1, yyvsp[0].arg, Nullarg, Nullarg); ; break;} case 88: #line 493 "perly.y" { opargs[yyvsp[0].ival] = (yyvsp[0].ival != O_FTTTY); yyval.arg = make_op(yyvsp[0].ival, 1, stab2arg(A_STAB, yyvsp[0].ival == O_FTTTY?stabent("STDIN",TRUE):defstab), Nullarg, Nullarg); ; break;} case 89: #line 499 "perly.y" { yyval.arg = l(localize(make_op(O_ASSIGN, 1, localize(listish(make_list(yyvsp[-1].arg))), Nullarg,Nullarg))); ; break;} case 90: #line 503 "perly.y" { yyval.arg = make_list(yyvsp[-1].arg); ; break;} case 91: #line 505 "perly.y" { yyval.arg = make_list(Nullarg); ; break;} case 92: #line 507 "perly.y" { yyval.arg = make_op(O_DOFILE,2,yyvsp[0].arg,Nullarg,Nullarg); allstabs = TRUE;; break;} case 93: #line 510 "perly.y" { yyval.arg = cmd_to_arg(yyvsp[0].cmdval); ; break;} case 94: #line 512 "perly.y" { yyval.arg = stab2arg(A_STAB,yyvsp[0].stabval); ; break;} case 95: #line 514 "perly.y" { yyval.arg = stab2arg(A_STAR,yyvsp[0].stabval); ; break;} case 96: #line 516 "perly.y" { yyval.arg = make_op(O_AELEM, 2, stab2arg(A_STAB,aadd(yyvsp[-3].stabval)), yyvsp[-1].arg, Nullarg); ; break;} case 97: #line 519 "perly.y" { yyval.arg = make_op(O_HASH, 1, stab2arg(A_STAB,yyvsp[0].stabval), Nullarg, Nullarg); ; break;} case 98: #line 523 "perly.y" { yyval.arg = make_op(O_ARRAY, 1, stab2arg(A_STAB,yyvsp[0].stabval), Nullarg, Nullarg); ; break;} case 99: #line 527 "perly.y" { yyval.arg = make_op(O_HELEM, 2, stab2arg(A_STAB,hadd(yyvsp[-3].stabval)), jmaybe(yyvsp[-1].arg), Nullarg); ; break;} case 100: #line 532 "perly.y" { yyval.arg = make_op(O_LSLICE, 3, Nullarg, listish(make_list(yyvsp[-1].arg)), listish(make_list(yyvsp[-4].arg))); ; break;} case 101: #line 537 "perly.y" { yyval.arg = make_op(O_LSLICE, 3, Nullarg, listish(make_list(yyvsp[-1].arg)), Nullarg); ; break;} case 102: #line 542 "perly.y" { yyval.arg = make_op(O_ASLICE, 2, stab2arg(A_STAB,aadd(yyvsp[-3].stabval)), listish(make_list(yyvsp[-1].arg)), Nullarg); ; break;} case 103: #line 547 "perly.y" { yyval.arg = make_op(O_HSLICE, 2, stab2arg(A_STAB,hadd(yyvsp[-3].stabval)), listish(make_list(yyvsp[-1].arg)), Nullarg); ; break;} case 104: #line 552 "perly.y" { yyval.arg = make_op(O_DELETE, 2, stab2arg(A_STAB,hadd(yyvsp[-3].stabval)), jmaybe(yyvsp[-1].arg), Nullarg); ; break;} case 105: #line 557 "perly.y" { yyval.arg = stab2arg(A_ARYLEN,yyvsp[0].stabval); ; break;} case 106: #line 559 "perly.y" { yyval.arg = yyvsp[0].arg; ; break;} case 107: #line 561 "perly.y" { yyval.arg = yyvsp[0].arg; ; break;} case 108: #line 563 "perly.y" { yyval.arg = yyvsp[0].arg; ; break;} case 109: #line 565 "perly.y" { yyval.arg = yyvsp[0].arg; ; break;} case 110: #line 567 "perly.y" { yyval.arg = make_op((perldb ? O_DBSUBR : O_SUBR), 2, stab2arg(A_WORD,stabent(yyvsp[-3].cval,MULTI)), make_list(yyvsp[-1].arg), Nullarg); Safefree(yyvsp[-3].cval); yyvsp[-3].cval = Nullch; yyval.arg->arg_flags |= AF_DEPR; ; break;} case 111: #line 573 "perly.y" { yyval.arg = make_op((perldb ? O_DBSUBR : O_SUBR), 2, stab2arg(A_WORD,stabent(yyvsp[-3].cval,MULTI)), make_list(yyvsp[-1].arg), Nullarg); Safefree(yyvsp[-3].cval); yyvsp[-3].cval = Nullch; ; break;} case 112: #line 578 "perly.y" { yyval.arg = make_op((perldb ? O_DBSUBR : O_SUBR), 2, stab2arg(A_WORD,stabent(yyvsp[-2].cval,MULTI)), make_list(Nullarg), Nullarg); yyval.arg->arg_flags |= AF_DEPR; ; break;} case 113: #line 584 "perly.y" { yyval.arg = make_op((perldb ? O_DBSUBR : O_SUBR), 2, stab2arg(A_WORD,stabent(yyvsp[-2].cval,MULTI)), make_list(Nullarg), Nullarg); ; break;} case 114: #line 589 "perly.y" { yyval.arg = make_op((perldb ? O_DBSUBR : O_SUBR), 2, stab2arg(A_WORD,stabent(yyvsp[0].cval,MULTI)), Nullarg, Nullarg); ; break;} case 115: #line 594 "perly.y" { yyval.arg = make_op((perldb ? O_DBSUBR : O_SUBR), 2, stab2arg(A_STAB,yyvsp[-3].stabval), make_list(yyvsp[-1].arg), Nullarg); yyval.arg->arg_flags |= AF_DEPR; ; break;} case 116: #line 600 "perly.y" { yyval.arg = make_op((perldb ? O_DBSUBR : O_SUBR), 2, stab2arg(A_STAB,yyvsp[-3].stabval), make_list(yyvsp[-1].arg), Nullarg); ; break;} case 117: #line 605 "perly.y" { yyval.arg = make_op((perldb ? O_DBSUBR : O_SUBR), 2, stab2arg(A_STAB,yyvsp[-2].stabval), make_list(Nullarg), Nullarg); yyval.arg->arg_flags |= AF_DEPR; ; break;} case 118: #line 611 "perly.y" { yyval.arg = make_op((perldb ? O_DBSUBR : O_SUBR), 2, stab2arg(A_STAB,yyvsp[-2].stabval), make_list(Nullarg), Nullarg); ; break;} case 119: #line 616 "perly.y" { yyval.arg = make_op((perldb ? O_DBSUBR : O_SUBR), 2, stab2arg(A_STAB,yyvsp[0].stabval), Nullarg, Nullarg); ; break;} case 120: #line 621 "perly.y" { yyval.arg = make_op(yyvsp[0].ival,0,Nullarg,Nullarg,Nullarg); ; break;} case 121: #line 623 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival,1,cval_to_arg(yyvsp[0].cval), Nullarg,Nullarg); ; break;} case 122: #line 626 "perly.y" { yyval.arg = make_op(yyvsp[0].ival,0,Nullarg,Nullarg,Nullarg); ; break;} case 123: #line 628 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival,1,cmd_to_arg(yyvsp[0].cmdval),Nullarg,Nullarg); ; break;} case 124: #line 630 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival,1,yyvsp[0].arg,Nullarg,Nullarg); ; break;} case 125: #line 632 "perly.y" { yyval.arg = make_op(O_SELECT, 0, Nullarg, Nullarg, Nullarg);; break;} case 126: #line 634 "perly.y" { yyval.arg = make_op(O_SELECT, 1, stab2arg(A_WORD,stabent(yyvsp[0].cval,TRUE)), Nullarg, Nullarg); Safefree(yyvsp[0].cval); yyvsp[0].cval = Nullch; ; break;} case 127: #line 640 "perly.y" { yyval.arg = make_op(O_SELECT, 1, yyvsp[-1].arg, Nullarg, Nullarg); ; break;} case 128: #line 642 "perly.y" { arg4 = yyvsp[-1].arg; yyval.arg = make_op(O_SSELECT, 4, yyvsp[-4].arg, yyvsp[-3].arg, yyvsp[-2].arg); ; break;} case 129: #line 645 "perly.y" { yyval.arg = make_op(O_OPEN, 2, stab2arg(A_WORD,stabent(yyvsp[0].cval,TRUE)), stab2arg(A_STAB,stabent(yyvsp[0].cval,TRUE)), Nullarg); ; break;} case 130: #line 650 "perly.y" { yyval.arg = make_op(O_OPEN, 2, stab2arg(A_WORD,stabent(yyvsp[-1].cval,TRUE)), stab2arg(A_STAB,stabent(yyvsp[-1].cval,TRUE)), Nullarg); ; break;} case 131: #line 655 "perly.y" { yyval.arg = make_op(O_OPEN, 2, yyvsp[-2].arg, yyvsp[-1].arg, Nullarg); ; break;} case 132: #line 659 "perly.y" { yyval.arg = make_op(yyvsp[-3].ival, 1, yyvsp[-1].arg, Nullarg, Nullarg); ; break;} case 133: #line 663 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival, 1, stab2arg(A_WORD,stabent(yyvsp[0].cval,TRUE)), Nullarg, Nullarg); Safefree(yyvsp[0].cval); yyvsp[0].cval = Nullch; ; break;} case 134: #line 668 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival, 1, stab2arg(A_STAB,yyvsp[0].stabval), Nullarg, Nullarg); ; break;} case 135: #line 672 "perly.y" { yyval.arg = make_op(yyvsp[-2].ival, 1, stab2arg(A_WORD,Nullstab), Nullarg, Nullarg); ; break;} case 136: #line 676 "perly.y" { yyval.arg = make_op(yyvsp[0].ival, 0, Nullarg, Nullarg, Nullarg); ; break;} case 137: #line 679 "perly.y" { yyval.arg = make_op(yyvsp[-4].ival, 2, yyvsp[-2].arg, yyvsp[-1].arg, Nullarg); ; break;} case 138: #line 681 "perly.y" { yyval.arg = make_op(yyvsp[-5].ival, 3, yyvsp[-3].arg, yyvsp[-2].arg, make_list(yyvsp[-1].arg)); ; break;} case 139: #line 683 "perly.y" { yyval.arg = make_op(yyvsp[-5].ival, 2, yyvsp[-3].arg, yyvsp[-1].arg, Nullarg); ; break;} case 140: #line 685 "perly.y" { arg4 = yyvsp[-1].arg; yyval.arg = make_op(yyvsp[-6].ival, 4, yyvsp[-4].arg, yyvsp[-3].arg, yyvsp[-2].arg); ; break;} case 141: #line 687 "perly.y" { arg4 = yyvsp[-2].arg; arg5 = yyvsp[-1].arg; yyval.arg = make_op(yyvsp[-8].ival, 5, yyvsp[-6].arg, yyvsp[-4].arg, yyvsp[-3].arg); ; break;} case 142: #line 690 "perly.y" { yyval.arg = make_op(yyvsp[-5].ival, 2, yyvsp[-3].arg, make_list(yyvsp[-1].arg), Nullarg); ; break;} case 143: #line 695 "perly.y" { yyval.arg = make_op(O_POP, 1, yyvsp[0].arg, Nullarg, Nullarg); ; break;} case 144: #line 697 "perly.y" { yyval.arg = make_op(O_POP, 1, yyvsp[-1].arg, Nullarg, Nullarg); ; break;} case 145: #line 699 "perly.y" { yyval.arg = make_op(O_SHIFT, 1, yyvsp[0].arg, Nullarg, Nullarg); ; break;} case 146: #line 701 "perly.y" { yyval.arg = make_op(O_SHIFT, 1, yyvsp[-1].arg, Nullarg, Nullarg); ; break;} case 147: #line 703 "perly.y" { yyval.arg = make_op(O_SHIFT, 1, stab2arg(A_STAB, aadd(stabent(subline ? "_" : "ARGV", TRUE))), Nullarg, Nullarg); ; break;} case 148: #line 708 "perly.y" { static char p[]="/\\s+/"; char *oldend = bufend; ARG *oldarg = yylval.arg; bufend=p+5; (void)scanpat(p); bufend=oldend; yyval.arg = make_split(defstab,yylval.arg,Nullarg); yylval.arg = oldarg; ; break;} case 149: #line 718 "perly.y" { yyval.arg = mod_match(O_MATCH, yyvsp[-2].arg, make_split(defstab,yyvsp[-3].arg,yyvsp[-1].arg));; break;} case 150: #line 721 "perly.y" { yyval.arg = mod_match(O_MATCH, yyvsp[-1].arg, make_split(defstab,yyvsp[-2].arg,Nullarg) ); ; break;} case 151: #line 724 "perly.y" { yyval.arg = mod_match(O_MATCH, stab2arg(A_STAB,defstab), make_split(defstab,yyvsp[-1].arg,Nullarg) ); ; break;} case 152: #line 728 "perly.y" { yyval.arg = make_op(yyvsp[-4].ival, 2, yyvsp[-2].arg, listish(make_list(yyvsp[-1].arg)), Nullarg); ; break;} case 153: #line 733 "perly.y" { yyval.arg = make_op(yyvsp[-3].ival, 1, make_list(yyvsp[-1].arg), Nullarg, Nullarg); ; break;} case 154: #line 738 "perly.y" { yyval.arg = l(make_op(yyvsp[-1].ival, 1, fixl(yyvsp[-1].ival,yyvsp[0].arg), Nullarg, Nullarg)); ; break;} case 155: #line 741 "perly.y" { yyval.arg = l(make_op(yyvsp[0].ival, 1, stab2arg(A_STAB,defstab), Nullarg, Nullarg)); ; break;} case 156: #line 745 "perly.y" { yyval.arg = make_op(yyvsp[0].ival, 0, Nullarg, Nullarg, Nullarg); ; break;} case 157: #line 747 "perly.y" { yyval.arg = make_op(yyvsp[-2].ival, 0, Nullarg, Nullarg, Nullarg); ; break;} case 158: #line 749 "perly.y" { yyval.arg = make_op(yyvsp[-2].ival, 0, Nullarg, Nullarg, Nullarg); ; break;} case 159: #line 751 "perly.y" { yyval.arg = make_op(yyvsp[-3].ival, 1, yyvsp[-1].arg, Nullarg, Nullarg); ; break;} case 160: #line 753 "perly.y" { yyval.arg = make_op(yyvsp[-4].ival, 2, yyvsp[-2].arg, yyvsp[-1].arg, Nullarg); if (yyvsp[-4].ival == O_INDEX && yyval.arg[2].arg_type == A_SINGLE) fbmcompile(yyval.arg[2].arg_ptr.arg_str,0); ; break;} case 161: #line 757 "perly.y" { yyval.arg = make_op(yyvsp[-4].ival, 2, yyvsp[-2].arg, yyvsp[-1].arg, Nullarg); if (yyvsp[-4].ival == O_INDEX && yyval.arg[2].arg_type == A_SINGLE) fbmcompile(yyval.arg[2].arg_ptr.arg_str,0); ; break;} case 162: #line 761 "perly.y" { yyval.arg = make_op(yyvsp[-5].ival, 3, yyvsp[-3].arg, yyvsp[-2].arg, yyvsp[-1].arg); if (yyvsp[-5].ival == O_INDEX && yyval.arg[2].arg_type == A_SINGLE) fbmcompile(yyval.arg[2].arg_ptr.arg_str,0); ; break;} case 163: #line 765 "perly.y" { yyval.arg = make_op(yyvsp[-5].ival, 3, yyvsp[-3].arg, yyvsp[-2].arg, yyvsp[-1].arg); ; break;} case 164: #line 767 "perly.y" { arg4 = yyvsp[-1].arg; yyval.arg = make_op(yyvsp[-6].ival, 4, yyvsp[-4].arg, yyvsp[-3].arg, yyvsp[-2].arg); ; break;} case 165: #line 770 "perly.y" { arg4 = yyvsp[-2].arg; arg5 = yyvsp[-1].arg; yyval.arg = make_op(yyvsp[-7].ival, 5, yyvsp[-5].arg, yyvsp[-4].arg, yyvsp[-3].arg); ; break;} case 166: #line 773 "perly.y" { yyval.arg = make_op(yyvsp[-3].ival, 1, yyvsp[-1].arg, Nullarg, Nullarg); ; break;} case 167: #line 778 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival, 1, yyvsp[0].arg, Nullarg, Nullarg); ; break;} case 168: #line 783 "perly.y" { yyval.arg = make_op(yyvsp[-5].ival, 3, yyvsp[-3].arg, yyvsp[-2].arg, yyvsp[-1].arg); ; break;} case 171: #line 790 "perly.y" { yyval.arg = make_op(yyvsp[0].ival,2, stab2arg(A_WORD,Nullstab), stab2arg(A_STAB,defstab), Nullarg); ; break;} case 172: #line 795 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival,2, stab2arg(A_WORD,Nullstab), maybelistish(yyvsp[-1].ival,make_list(yyvsp[0].arg)), Nullarg); ; break;} case 173: #line 800 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival,2, stab2arg(A_WORD,stabent(yyvsp[0].cval,TRUE)), stab2arg(A_STAB,defstab), Nullarg); ; break;} case 174: #line 805 "perly.y" { yyval.arg = make_op(yyvsp[-2].ival,2, stab2arg(A_WORD,stabent(yyvsp[-1].cval,TRUE)), maybelistish(yyvsp[-2].ival,make_list(yyvsp[0].arg)), Nullarg); Safefree(yyvsp[-1].cval); yyvsp[-1].cval = Nullch; ; break;} case 175: #line 810 "perly.y" { yyval.arg = make_op(yyvsp[-2].ival,2, stab2arg(A_STAB,yyvsp[-1].stabval), maybelistish(yyvsp[-2].ival,make_list(yyvsp[0].arg)), Nullarg); ; break;} case 176: #line 815 "perly.y" { yyval.arg = make_op(yyvsp[-2].ival,2, cmd_to_arg(yyvsp[-1].cmdval), maybelistish(yyvsp[-2].ival,make_list(yyvsp[0].arg)), Nullarg); ; break;} case 177: #line 823 "perly.y" { yyval.arg = stab2arg(A_WORD,stabent(yyvsp[0].cval,TRUE)); Safefree(yyvsp[0].cval); yyvsp[0].cval = Nullch;; break;} case 179: #line 830 "perly.y" { yyval.arg = stab2arg(A_WORD,aadd(stabent(yyvsp[0].cval,TRUE))); Safefree(yyvsp[0].cval); yyvsp[0].cval = Nullch; ; break;} case 180: #line 833 "perly.y" { yyval.arg = stab2arg(A_STAB,yyvsp[0].stabval); ; break;} case 181: #line 838 "perly.y" { yyval.arg = stab2arg(A_WORD,hadd(stabent(yyvsp[0].cval,TRUE))); Safefree(yyvsp[0].cval); yyvsp[0].cval = Nullch; ; break;} case 182: #line 841 "perly.y" { yyval.arg = stab2arg(A_STAB,yyvsp[0].stabval); ; break;} case 183: #line 846 "perly.y" { yyval.ival = 1; ; break;} case 184: #line 848 "perly.y" { yyval.ival = 0; ; break;} case 185: #line 859 "perly.y" { char *s; yyval.arg = op_new(1); yyval.arg->arg_type = O_ITEM; yyval.arg[1].arg_type = A_SINGLE; yyval.arg[1].arg_ptr.arg_str = str_make(yyvsp[0].cval,0); for (s = yyvsp[0].cval; *s && isLOWER(*s); s++) ; if (dowarn && !*s) warn( "\"%s\" may clash with future reserved word", yyvsp[0].cval ); ; break;} } /* the action file gets copied in in place of this dollarsign */ #line 362 "bison.simple" yyvsp -= yylen; yyssp -= yylen; #ifdef YYLSP_NEEDED yylsp -= yylen; #endif #if YYDEBUG != 0 if (yydebug) { short *ssp1 = yyss - 1; fprintf (stderr, "state stack now"); while (ssp1 != yyssp) fprintf (stderr, " %d", *++ssp1); fprintf (stderr, "\n"); } #endif *++yyvsp = yyval; #ifdef YYLSP_NEEDED yylsp++; if (yylen == 0) { yylsp->first_line = yylloc.first_line; yylsp->first_column = yylloc.first_column; yylsp->last_line = (yylsp-1)->last_line; yylsp->last_column = (yylsp-1)->last_column; yylsp->text = 0; } else { yylsp->last_line = (yylsp+yylen-1)->last_line; yylsp->last_column = (yylsp+yylen-1)->last_column; } #endif /* Now "shift" the result of the reduction. Determine what state that goes to, based on the state we popped back to and the rule number reduced by. */ yyn = yyr1[yyn]; yystate = yypgoto[yyn - YYNTBASE] + *yyssp; if (yystate >= 0 && yystate <= YYLAST && yycheck[yystate] == *yyssp) yystate = yytable[yystate]; else yystate = yydefgoto[yyn - YYNTBASE]; goto yynewstate; yyerrlab: /* here on detecting error */ if (! yyerrstatus) /* If not already recovering from an error, report this error. */ { ++yynerrs; #ifdef YYERROR_VERBOSE yyn = yypact[yystate]; if (yyn > YYFLAG && yyn < YYLAST) { int size = 0; char *msg; int x, count; count = 0; for (x = 0; x < (sizeof(yytname) / sizeof(char *)); x++) if (yycheck[x + yyn] == x) size += strlen(yytname[x]) + 15, count++; msg = (char *) xmalloc(size + 15); strcpy(msg, "parse error"); if (count < 5) { count = 0; for (x = 0; x < (sizeof(yytname) / sizeof(char *)); x++) if (yycheck[x + yyn] == x) { strcat(msg, count == 0 ? ", expecting `" : " or `"); strcat(msg, yytname[x]); strcat(msg, "'"); count++; } } yyerror(msg); free(msg); } else #endif /* YYERROR_VERBOSE */ yyerror("parse error"); } yyerrlab1: /* here on error raised explicitly by an action */ if (yyerrstatus == 3) { /* if just tried and failed to reuse lookahead token after an error, discard it. */ /* return failure if at end of input */ if (yychar == YYEOF) YYABORT; #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Discarding token %d (%s).\n", yychar, yytname[yychar1]); #endif yychar = YYEMPTY; } /* Else will try to reuse lookahead token after shifting the error token. */ yyerrstatus = 3; /* Each real token shifted decrements this */ goto yyerrhandle; yyerrdefault: /* current state does not do anything special for the error token. */ #if 0 /* This is wrong; only states that explicitly want error tokens should shift them. */ yyn = yydefact[yystate]; /* If its default is to accept any token, ok. Otherwise pop it.*/ if (yyn) goto yydefault; #endif yyerrpop: /* pop the current state because it cannot handle the error token */ if (yyssp == yyss) YYABORT; yyvsp--; yystate = *--yyssp; #ifdef YYLSP_NEEDED yylsp--; #endif #if YYDEBUG != 0 if (yydebug) { short *ssp1 = yyss - 1; fprintf (stderr, "Error: state stack now"); while (ssp1 != yyssp) fprintf (stderr, " %d", *++ssp1); fprintf (stderr, "\n"); } #endif yyerrhandle: yyn = yypact[yystate]; if (yyn == YYFLAG) goto yyerrdefault; yyn += YYTERROR; if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != YYTERROR) goto yyerrdefault; yyn = yytable[yyn]; if (yyn < 0) { if (yyn == YYFLAG) goto yyerrpop; yyn = -yyn; goto yyreduce; } else if (yyn == 0) goto yyerrpop; if (yyn == YYFINAL) YYACCEPT; #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Shifting error token, "); #endif *++yyvsp = yylval; #ifdef YYLSP_NEEDED *++yylsp = yylloc; #endif yystate = yyn; goto yynewstate; } #line 871 "perly.y" /* PROGRAM */